home *** CD-ROM | disk | FTP | other *** search
- object Form29: TForm29
- Left = 246
- Top = 121
- Width = 1088
- Height = 750
- Caption = 'Image Comparator'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 185
- Height = 145
- Caption = 'GroupBox1'
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 16
- Width = 99
- Height = 16
- Caption = 'Loading image...'
- end
- object PMultiImage1: TPMultiImage
- Left = 8
- Top = 16
- Width = 105
- Height = 105
- GrabHandCursor = 5
- Scrolling = True
- ShowScrollbars = True
- B_W_CopyFlags = [C_DEL]
- Color = clBtnFace
- Picture.Data = {07544269746D617000000000}
- ImageReadRes = lAutoMatic
- BlitMode = sLight
- ImageWriteRes = sAutoMatic
- TifSaveCompress = sNONE
- TiffPage = 0
- TiffAppend = False
- JPegSaveQuality = 25
- JPegSaveSmooth = 5
- OnMouseMove = PMultiImage1MouseMove
- RubberBandBtn = mbLeft
- ScrollbarWidth = 12
- ParentColor = True
- PopupMenu = PopupMenu1
- TextLeft = 0
- TextTop = 0
- TextRotate = 0
- TabOrder = 0
- ZoomBy = 10
- end
- end
- object GroupBox2: TGroupBox
- Left = 200
- Top = 8
- Width = 185
- Height = 145
- Caption = 'GroupBox2'
- TabOrder = 1
- object Label2: TLabel
- Left = 8
- Top = 16
- Width = 99
- Height = 16
- Caption = 'Loading image...'
- end
- object PMultiImage2: TPMultiImage
- Left = 8
- Top = 16
- Width = 105
- Height = 105
- GrabHandCursor = 5
- Scrolling = True
- ShowScrollbars = True
- B_W_CopyFlags = [C_DEL]
- Color = clBtnFace
- Picture.Data = {07544269746D617000000000}
- ImageReadRes = lAutoMatic
- BlitMode = sLight
- ImageWriteRes = sAutoMatic
- TifSaveCompress = sNONE
- TiffPage = 0
- TiffAppend = False
- JPegSaveQuality = 25
- JPegSaveSmooth = 5
- OnMouseMove = PMultiImage2MouseMove
- RubberBandBtn = mbLeft
- ScrollbarWidth = 12
- ParentColor = True
- PopupMenu = PopupMenu2
- TextLeft = 0
- TextTop = 0
- TextRotate = 0
- TabOrder = 0
- ZoomBy = 10
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 160
- Top = 120
- object ZoomIn1: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000130B0000130B00001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3303333333333333300033333333333300033333333333300033333333333300
- 0333333700073B7033333307777700B33333307F8F8F7033333377F8F9F8F773
- 3333078F898F8703333307F99999F7033333078F898F8703333377F8F9F8F773
- 3333307F8F8F7033333333077777033333333337000733333333}
- Caption = 'Zoom In'
- ShortCut = 16457
- OnClick = ZoomIn1Click
- end
- object ZoomOut1: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000130B0000130B00001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3303333333333333300033333333333300033333333333300033333333333300
- 0333333700073B7033333307777700B333333078F8F870333333778F8F8F8773
- 333307F8F8F8F7033333078999998703333307F8F8F8F7033333778F8F8F8773
- 33333078F8F87033333333077777033333333337000733333333}
- Caption = 'Zoom Out'
- ShortCut = 16463
- OnClick = ZoomOut1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Brighten1: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000120B0000120B00001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 33333333330003333333333333080333333333B33B000B33B333333BBB0B0BBB
- 3333333BBB0F0BBB333333BBB0F7F0BBB33333BB0FB7BF0BB333BBBB0BF7FB0B
- BBB333BB0FBFBF0BB33333BBB0FBF0BBB333333BBB000BBB3333333BBBBBBBBB
- 333333B33BBBBB33B3333333333B333333333333333B33333333}
- Caption = 'Brighten'
- ShortCut = 16450
- OnClick = Brighten1Click
- end
- object Darken1: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000120B0000120B00001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 33333333330003333333333333080333333333333300033333333333330F0333
- 33333333330F03333333333330F7F033333333330FF7FF03333333330FF7FF03
- 333333330FFFFF033333333330FFF03333333333330003333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- Caption = 'Darken'
- ShortCut = 16452
- OnClick = Darken1Click
- end
- object RotateLeft1: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000CE0E00001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777777777444444777777774444444444777774447777774
- 4477774477777777447774477797999774477447999797977447744797979797
- 7447744799979997744777447777774744777744777777444477777777777744
- 4777777777777744447777777777777777777777777777777777}
- Caption = 'Rotate Left'
- ShortCut = 16460
- OnClick = RotateLeft1Click
- end
- object RotateRight1: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000CE0E00001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777777777444444777777774444444444777774447777774
- 4477774477777777447774477779799974477447799979797447744779797979
- 7447744779997999744777447477777744777744447777774477777444777777
- 7777774444777777777777777777777777777777777777777777}
- Caption = 'Rotate Right'
- ShortCut = 16466
- OnClick = RotateRight1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object Exit2: TMenuItem
- Caption = 'Exit'
- OnClick = Exit2Click
- end
- end
- object PopupMenu2: TPopupMenu
- Left = 352
- Top = 120
- object ZoomIn2: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000130B0000130B00001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3303333333333333300033333333333300033333333333300033333333333300
- 0333333700073B7033333307777700B33333307F8F8F7033333377F8F9F8F773
- 3333078F898F8703333307F99999F7033333078F898F8703333377F8F9F8F773
- 3333307F8F8F7033333333077777033333333337000733333333}
- Caption = 'Zoom In'
- ShortCut = 16457
- OnClick = ZoomIn2Click
- end
- object ZoomOut2: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000130B0000130B00001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3303333333333333300033333333333300033333333333300033333333333300
- 0333333700073B7033333307777700B333333078F8F870333333778F8F8F8773
- 333307F8F8F8F7033333078999998703333307F8F8F8F7033333778F8F8F8773
- 33333078F8F87033333333077777033333333337000733333333}
- Caption = 'Zoom Out'
- ShortCut = 16463
- OnClick = ZoomOut2Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Brighten2: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000120B0000120B00001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 33333333330003333333333333080333333333B33B000B33B333333BBB0B0BBB
- 3333333BBB0F0BBB333333BBB0F7F0BBB33333BB0FB7BF0BB333BBBB0BF7FB0B
- BBB333BB0FBFBF0BB33333BBB0FBF0BBB333333BBB000BBB3333333BBBBBBBBB
- 333333B33BBBBB33B3333333333B333333333333333B33333333}
- Caption = 'Brighten'
- ShortCut = 16450
- OnClick = Brighten2Click
- end
- object Darken2: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000120B0000120B00001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 33333333330003333333333333080333333333333300033333333333330F0333
- 33333333330F03333333333330F7F033333333330FF7FF03333333330FF7FF03
- 333333330FFFFF033333333330FFF03333333333330003333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- Caption = 'Darken'
- ShortCut = 16452
- OnClick = Darken2Click
- end
- object RotateLeft2: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000CE0E00001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777777777444444777777774444444444777774447777774
- 4477774477777777447774477797999774477447999797977447744797979797
- 7447744799979997744777447777774744777744777777444477777777777744
- 4777777777777744447777777777777777777777777777777777}
- Caption = 'Rotate Left'
- ShortCut = 16460
- OnClick = RotateLeft2Click
- end
- object RotateRight2: TMenuItem
- Bitmap.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000CE0E00001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777777777444444777777774444444444777774447777774
- 4477774477777777447774477779799974477447799979797447744779797979
- 7447744779997999744777447477777744777744447777774477777444777777
- 7777774444777777777777777777777777777777777777777777}
- Caption = 'Rotate Right'
- ShortCut = 16466
- OnClick = RotateRight2Click
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'Exit'
- OnClick = Exit1Click
- end
- end
- end
-